(uce-reply-to-uce): Bind case-fold-search.

diff --git a/lisp/mail/uce.el b/lisp/mail/uce.el
index 06c57960a4a3f3b5c1101708451c3a22eed3a04d..aa0dfdfee39ef5fa5dff24624b76e3592afbcc29 100644 (file)
--- a/lisp/mail/uce.el
+++ b/lisp/mail/uce.el
@@ -259,8 +259,9 @@ address, and postmaster of the mail relay used."
       (if (eq uce-mail-reader 'rmail)
          (progn
            (forward-line 2)
-           (while (looking-at "Summary-Line:\\|Mail-From:")
-             (forward-line 1))
+           (let ((case-fold-search t))
+             (while (looking-at "Summary-Line:\\|Mail-From:")
+               (forward-line 1)))
            (delete-region temp (point))))
       ;; Now find the mail hub that first accepted this message.
       ;; This should try to find the last Received: header.